home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / EnterAct 3.5 / Drag_on Modules / hAWK programs / $MA7_RunClip < prev    next >
Encoding:
Text File  |  1993-04-09  |  3.1 KB  |  72 lines  |  [TEXT/KEEN]
  1. # $MA7_RunClip : takes the actual hAWK program to be  run  from  the  system
  2. # clipboard, and runs it on the list of files  specified  in  "$tempStdOut".
  3. # Intended mainly for use with Minimal App7.
  4. # 
  5. # NOTE this program does NOT allow you to set variables, so it  should  only
  6. # be used to run hAWK programs  that  do  not  require  preset  variables—or
  7. # programs which will run to your satisfaction with all preset variables set
  8. # to zero or the null string. For example, "$CompareFiles" has a  couple  of
  9. # preset variables, but will normally work fine without setting them.
  10. # 
  11. # To run this program using Minimal App7:
  12. # 1 Using your favorite editor, create a list of full path names
  13. #     for your desired input files, and put the list in "$tempStdOut".
  14. #     This can easily be done by running "$EchoFullPathNames".
  15. # 2 Again using your favorite editor, Open and Copy the entire hAWK
  16. #     program you wish to run.
  17. # 3 Switch to Minimal App7, call up hAWK, and select this program
  18. #     (ie "$MA7_RunClip").
  19. # 4 If this is your FIRST RUN of "$MA7_RunClip", use the "Take input
  20. #     from" popup to select "$tempStdOut" as the specific input
  21. #     file. Then click the "Save settings" button. This needs to be
  22. #     done the first time only.
  23. # 5 Click the Run button, and then switch out to another application
  24. #     if you wish. Minimal App7 will notify you when it is done.
  25. # 6 Results of the run will be in the usual place (typically "$tempStdOut").
  26. # 
  27. # Note technically you could use some other file  besides  "$tempStdOut"  to
  28. # hold the list of files, but  since  "$EchoFullPathNames"  sends  the  list
  29. # there, this is the easiest way. If you have a fixed  list  of  files,  you
  30. # could use a dedicated file for this list  -  just  put  the  list  in  the
  31. # dedicated file before running this program, and change the specific  input
  32. # file this program uses to the dedicated file.
  33.  
  34. # User’s Manual references:
  35. # «hAWK User’s Manual» «F   Running hAWK programs»
  36. # «hAWK User’s Manual» «L  5   Regular expressions»
  37. # «hAWK User’s Manual» «M  5   Built-in string and file functions»
  38. # «hAWK User’s Manual» «K  4   Built-in variables»
  39. # «hAWK User’s Manual» «K  8   Arrays»
  40. # «hAWK User’s Manual» «N   User-defined functions»
  41. # «hAWK User’s Manual» «P  3   The getline function»
  42. # «hAWK User’s Manual» «O  3   Output into files»
  43. # «hAWK User’s Manual» «Q   The hAWK function»
  44.  
  45.  
  46. #This is the modification to be added to the beginning of any program
  47. #that wants a list of files in specific order to use as input:
  48. BEGIN    {while (getline _specific_file_ < ARGV[1] > 0)
  49.             {
  50.             if (length(_specific_file_) > 1 &&
  51.             index(_specific_file_, ":") > 0)
  52.                 ARGV[ARGC++] = _specific_file_;
  53.             }
  54.         close(ARGV[1]);
  55.         ARGV[1] = "";
  56.         }
  57. #end modification
  58.  
  59. # Print the clip to a temporary file, and run it as a hAWK program
  60. # on the list of files provided in the file ARGV[1].
  61. BEGIN {
  62.     progFile = STDPATH "Drag_on Modules:hAWK programs:$hAWKTempProgram"
  63.     print getclip() > progFile
  64.     close(progFile)
  65.     argv[x++] = "hAWK"
  66.     argv[x++] = "-f" progFile
  67.     argv[x++] = "--"
  68.     for (j = 2; j < ARGC; ++j) # Note ARGV[1] was nulled out above.
  69.         argv[x++] = ARGV[j]
  70.     hAWK(argv)
  71.     }
  72.